Rockey Delphiָϣ
³Rockey4ND.dcuж壬ֱʹã

RY_FIND                        	=1 ;		{}
RY_FIND_NEXT		        =2 ;		{һ}
RY_OPEN                        	=3 ;		{}
RY_CLOSE                       	=4 ;		{ر}
RY_READ                        	=5 ;		{}
RY_WRITE                       	=6 ;		{д}
RY_RANDOM                      	=7 ;		{ }
RY_SEED                      	=8 ;		{ }
RY_WRITE_USERID			=9 ;		{дû ID  }
RY_READ_USERID		   	=10;		{û ID  }
RY_SET_MOUDLE		        =11;		{ģ }
RY_CHECK_MOUDLE		        =12;		{ģ״̬}
RY_WRITE_ARITHMETIC            	=13;		{д㷨 }
RY_CALCULATE1		       	=14;		{ 1 }
RY_CALCULATE2		       	=15;		{ 2 }
RY_CALCULATE3		       	=16;		{ 3 }
RY_DECREASE		       	=17;		{ݼģ鵥Ԫ }
{}

{}
R4NDERR_NO_ROCKEY	                =3;		{û Rockey }
R4NDERR_INVALID_PASSWORD		=4;		{ Rockey , (pass1, pass2)}
R4NDERR_INVALID_PASSWORD_OR_ID 	=5;		{Ӳ ID }
R4NDERR_SETID			=6;               {Ӳ ID  }
R4NDERR_INVALID_ADDR_OR_SIZE	=7;		{дַ򳤶 }
R4NDERR_UNKNOWN_COMMAND        	=8;		{ûд}
R4NDERR_NOTBELEVEL3		        =9;		{ڲ }
R4NDERR_READ			=10;		{ݴ }
R4NDERR_WRITE                  	=11;		{дݴ }
R4NDERR_RANDOM                 	=12;		{ }
R4NDERR_SEED                   	=13;		{ }
R4NDERR_CALCULATE              	=14;		{   }
R4NDERR_NO_OPEN			=15;		{ڲǰûд  }
R4NDERR_OPEN_OVERFLOW          	=16;		{򿪵̫(>16)   }
R4NDERR_NOMORE			=17;		{Ҳ      }
R4NDERR_NEED_FIND			=18;		{û Find ֱ FindNext }
R4NDERR_DECREASE			=19;		{ݼ          }
R4NDERR_AR_BADCOMMAND		=20;		{㷨ָ      }
R4NDERR_AR_UNKNOWN_OPCODE		=21;		{㷨    }
R4NDERR_AR_WRONGBEGIN		=22;		{㷨һָг}
R4NDERR_AR_WRONG_END		=23;		{㷨һָг}
R4NDERR_AR_VALUEOVERFLOW		=24;		{㷨гֵ > 63  }
R4NDERR_TOOMUCHTHREAD	 = 25; 		{ͬһд߳ > 100}
R4NDERR_UNKNOWN			=65535;		{δ֪     }
R4NDERR_RECEIVE_NULL		=256;		{ղ     }
R4NDERR_UNKNOWN_SYSTEM		=258;		{δ֪Ĳϵͳ}

{ROCKEYĵ}
function  Rockey( fun: Word ;var Handle:Word;var lp1,lp2:LongWord; var P1,P2,P3,P4:Word;var buf:Byte):Word;
///////////////////////////////////////////////////////////////
ʹã
ڳUsesм룺rockey4nd 

̿ʼʱҪR4ND_Init();ʼ
ƳǰR4ND_Finish();ͷԴ

ĵã
funֻRY_XXXXX,봫һ봫ַ
,ӦһByteС磺
 cstr:='H=H^H, A=A*23, F=B*17, A=A+F, A=A+G, A=A<C, A=A^D, B=B^B, C=C^C, D=D^D';
  for i:=0 to strlen(cstr) do
      mBuf[i]:= Byte(cstr[i]);
  mBuf[i]:=0;
  mFun:=RY_WRITE_ARITHMETIC;
  mP1:=0;
   rt:= Rockey(mFun,mHand[num],lP1,lP2,mP1,mP2,mP3,mP4,mBuf[0]);
 ............

忴ӳ
